home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / E.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  925 b   |  21 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,30:PRINT "A R E A    T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This section will guide you through the AREA section of M A T H  P A K."
  8. 80  LOCATE 6,2:PRINT " The AREA section of M A T H  P A K, will calculate square inch area,"
  9. 90  LOCATE 7,2:PRINT "for either  a circle or a triangle."
  10. 100  LOCATE 9,2:PRINT "EXAMPLE:"
  11. 110  LOCATE 11,2:PRINT " To find the area of a triangle with a base of 13.45 inches and a"
  12. 120  LOCATE 12,2:PRINT "height of 16.76 inches, press 't' for triangle and press <RETURN>."
  13. 130  LOCATE 13,2:PRINT " Then enter the value 13.45 for 'BASE' and press <RETURN>, then,"
  14. 140  LOCATE 14,2:PRINT "enter the value 16.76 for 'HEIGHT' and press <RETURN>."
  15. 150  LOCATE 15,2:PRINT " The area calculation will appear below that."
  16. 160  LOCATE 16,2:PRINT " To exit from the AREA section, enter a 'x' for area selection."
  17. 170  LOCATE 20,2:PRINT "Press the S P A C E  B A R to return to disk tutorial..."
  18. 180  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  19. 190  GOTO 180
  20. 200  END
  21.